home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / util / simulare.sit / Simula 4.07 Reference / card_11780.txt < prev    next >
Text File  |  1989-05-02  |  3KB  |  124 lines
  1. -- card: 11780 from stack: in.07 Reference
  2. -- bmap block id: 12522
  3. -- flags: 0000
  4. -- background id: 13647
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=22 top=114 right=133 bottom=86
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 22
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=106 top=113 right=133 bottom=227
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 22
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=108 top=143 right=163 bottom=229
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 22
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=233 top=112 right=164 bottom=444
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 5 (button)
  65. -- low flags: 00
  66. -- high flags: A004
  67. -- rect: left=13 top=289 right=311 bottom=97
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Utilities
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   go to card id 26098
  79. end mouseUp
  80.  
  81.  
  82.  
  83.  
  84. -- part contents for background part 1
  85. ----- text -----
  86. A text variable may reference a part of a text, a frame:
  87.     Text-object                        Text variable
  88.  
  89.  
  90.  
  91.  
  92.  
  93. text procedure SUB(i,n); integer i,n;   Returns a reference to a part of the text of 
  94.                                         length n, starting at the i:th character. T.SUB(5.2) will return a 
  95.                                         reference to the sub-string "EF" above.
  96. text procedure STRIP; Returns a reference to a sub-string where all trailing spaces 
  97.                                         and tabs have been skipped.
  98. text procedure MAIN; This is the inverse of SUB and STRIP - returns a reference to                
  99.                                         the full string. T.SUB(5,2).MAIN==T
  100. integer procedure START; Returns the index within the MAIN-string of where the    
  101.                                         SUB-string starts: T.SUB(5,2).START=5.
  102.  
  103. -- part contents for background part 2
  104. ----- text -----
  105. Text attributes - sub-strings
  106.  
  107. -- part contents for card part 1
  108. ----- text -----
  109. ABCDEFGH
  110.  
  111. -- part contents for card part 2
  112. ----- text -----
  113. Pos=1, Length=8
  114.  
  115. -- part contents for card part 3
  116. ----- text -----
  117. Pos=1, Length=2
  118.  
  119. -- part contents for card part 4
  120. ----- text -----
  121. T  after    T:-"ABCDEFGH"
  122.  
  123. S  after    S:-T.SUB(5,2)
  124.